home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_128_append(aLinearList, n ).ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  491 b   |  14 lines
  1. on mouseDown
  2.   global gDefaultLinearList, gCopyOfList
  3.   doButton()
  4.   set vAddValue to the text of member "Copying Linear Copy Input Field 1"
  5.   set vAddValue to checkValue(vAddValue)
  6.   if vAddValue <> EMPTY then
  7.     append(gDefaultLinearList, vAddValue)
  8.     set the text of member "Copying Linear Copy Display Field 1" to string(gDefaultLinearList)
  9.     if gCopyOfList <> 0 then
  10.       set the text of member "Copying Linear Copy Display Field 2" to string(gCopyOfList)
  11.     end if
  12.   end if
  13. end
  14.